home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / dev / basic / ace24dist.lha / ace24.lha / prgs / Fractals / kx.b < prev    next >
Text File  |  1996-09-10  |  482b  |  38 lines
  1. '...Chaos from a simple equation...
  2.  
  3. window 1,"chaos from kx^2-1",(0,0)-(640,200),6
  4.  
  5. color 2,1
  6. penup
  7.  
  8. repeat
  9.  CLS
  10.  
  11.  locate 2,1
  12.  input "Value of k (0..2, 'q' to quit)";k$
  13.  k$=ucase$(k$)
  14.  
  15.  if ucase$(k$)<>"Q" then
  16.   k=val(k$)
  17.   x=.1
  18.   wf=3
  19.  
  20.   setxy 10,100
  21.  
  22.   FOR I%=10 TO 620 STEP WF
  23.     x = k*x^2.0 - 1.0
  24.     Ampl%=(x*25.0)+100
  25.     line step (i%,ampl%) 
  26.   NEXT
  27.  
  28.   locate 4,1
  29.   print "press 'c' to continue..."
  30.  
  31.   while ucase$(inkey$)<>"C"
  32.   wend
  33.  
  34.  end if
  35. until k$="Q"
  36.  
  37. window close 1
  38.